home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PPC1B3AA.ZIP
/
MOVETO_.PPS
< prev
next >
Wrap
Text File
|
1996-07-30
|
231b
|
16 lines
; Demonstration of the MoveTo procedure (library MOVETO.LIB)
#ppe
#libpath ..\..\lib
#use moveto
Int X, Y
While (Inkey() = "") Do
Y = Random(22)+1
X = Random(78)+1
MoveTo(X, Y)
Print "X"
Endwhile